home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
0514.ZIP
/
CRAYZ15.ARC
/
CRAYZ.VAR
< prev
next >
Wrap
Text File
|
1986-08-01
|
565b
|
18 lines
{ Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, NY 13730 }
var
n : integer ;
PrintCode : integer ;
aID : vARRAY ; { file assigned to matrix A }
RCond : real ;
InfoCode : integer ;
IPvt : IVECTOR ;
Det : DVECTOR ;
b : VECTOR ;
JobCode : integer ;
Work : VECTOR ;
iAi,iAj,iAk,iAl : integer ;
Ai,Aj,Ak,Al : VECTOR ;
{ Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, NY 13730 }